home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / msdos / dbhamlog / toroku.prg < prev    next >
Text File  |  1991-10-18  |  3KB  |  125 lines
  1. *****************  登録処理 *****************
  2. *****************  登録.PRG ****** T.Chino **
  3. CLEAR
  4. SET ORDER TO 1
  5. GOTO BOTTOM
  6. SET COLOR ON
  7. STOR SPACE(8)  TO M && MMDDYY
  8. STOR CTOD(" / / ") TO MDY
  9. STOR SPACE(5)  TO T && TIME
  10. STOR SPACE(10) TO C && CALL
  11. STOR SPACE(4)  TO W && WAVE
  12. STOR SPACE(4)  TO F && FREQ 
  13. *SET CARRY ON
  14. *APPEND
  15. *DO WHILE .T.
  16. SET COLOR TO BR
  17.   @ 1,15   SAY "*************************************************"
  18.   @ 2,15   SAY "*                                               *"
  19.   @ 3,15   SAY "************************************* 登録.PRG **"
  20. SET COLOR TO GR
  21.   @ 2,18   SAY "アマチュア 無 線 ＱＳＯ ログ 管 理 システム"
  22.  
  23. SET COLOR TO BG
  24.  @  5,20 SAY "    -------------------------------"
  25.  @  6,20 SAY "    *  呼出符号　　　　　　　　　 *"
  26.  @  7,20 SAY "    -------------------------------"
  27. SET COLOR TO G
  28.  @  8,15 SAY " 交信月日　　　　　　　　　 氏名  "
  29.  @ 10,15 SAY "     時間　　　　　　　　　 住所  "
  30.  @ 12,15 SAY "   周波数        MHz       JCC/G         GL"
  31.  @ 14,15 SAY " 電波形式　　　　　　　　　 QSL   "     
  32. * @ 16,15 SAY "　　　　　　　　　　　　 交信回数 "
  33.  @ 18,15 SAY "                             "
  34.  
  35. SET COLOR TO BG
  36.  @ 20,15 SAY " 登録する交信日（ 年／月／日 ）は ？" GET MDY
  37. READ
  38. CLEAR GET
  39.  @ 20,15 SAY "    登録している交信日は "+DTOC(MDY)+" です。                 "  
  40.  
  41.  
  42. SET COLOR TO
  43.  
  44. DO WHILE .T. && ****************111***********
  45.  
  46. SET COLOR TO GR
  47. STORE SPACE(10) TO C
  48.   @ 22,1 SAY "                                                              "
  49.   @ 18,1 SAY "                                                              "
  50.   @ 22,15 SAY "        登録する  呼出符号は  ? " GET C 
  51.   READ
  52.   CLEAR GET
  53.  
  54. IF C="          "
  55.  RETURN
  56. ENDIF
  57.  
  58. STOR SPACE(10) TO N && NAME
  59. STOR SPACE(18) TO A && ADDRES
  60. STOR SPACE(5)  TO J && JCC_G
  61. STOR SPACE(6)  TO G && GL
  62. STOR SPACE(2)  TO Q && QSL
  63.  
  64. SET COLOR TO GRI
  65.  @  6,39 SAY " "+C
  66.  @  8,25 SAY " "+DTOC(MDY)
  67. DO WHILE .T. && ********333
  68. SET COLOR TO GR
  69.  @ 10,25 SAY "" GET T
  70.  @ 12,25 SAY "" GET F
  71.  @ 14,25 SAY "" GET W
  72.  @  8,48 SAY "" GET N
  73.  @ 10,48 SAY "" GET A
  74.  @ 12,48 SAY "" GET J
  75.  @ 12,58 SAY "" GET G
  76.  @ 14,48 SAY "" GET Q
  77.  READ
  78. CLEAR GETS
  79.  
  80.  STORE " " TO YN
  81. DO WHILE YN<>"Y" .AND. YN<>"N" .AND. YN<>"Q"
  82. @ 18,15 SAY   "   交信記録に間違いないですか [ Y/N ] " GET  YN
  83.     READ
  84.     CLEAR GET
  85. ENDDO
  86.    IF YN= "Y"
  87.      EXIT
  88.    ENDIF
  89.   IF YN= "N"
  90.      LOOP
  91.   ENDIF
  92.   IF YN= "Q"
  93.      EXIT
  94.   ENDIF
  95. ENDDO && ***********333***
  96.  
  97.   IF YN= "Q"
  98.      EXIT
  99.   ENDIF
  100.  
  101.  REPLACE MMDDYY WITH MDY ;
  102.            TIME WITH T ;
  103.            CALL WITH C ;
  104.            WAVE WITH W ;
  105.            FREQ WITH F ;
  106.            NAME WITH N ;
  107.          ADDRES WITH A ;
  108.           JCC_G WITH J ;
  109.              GL WITH G ;
  110.             QSL WITH Q
  111.  
  112.    APPEND BLANK
  113.  REPLACE CALL WITH "[[ END ]] "
  114.  REPLACE MMDDYY WITH CTOD("99.12.31");
  115.            FREQ WITH "zzzz" ;
  116.           JCC_G WITH "zzzzz" ;
  117.              GL WITH "zzzzzz" ;
  118.              
  119. LOOP
  120.  
  121. ENDDO && **********11111****
  122.  
  123.  RETURN 
  124.  
  125.